home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / whiledemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  383 b   |  17 lines
  1. program WhileDemo;
  2. var
  3.   Foo, Bar: Integer;
  4. begin
  5.   WriteLn ('Enter an descending series of integer numbers.');
  6.   WriteLn ('Terminate by breaking this rule.');
  7.   WriteLn ('Enter start number: ');
  8.   Bar := MaxInt;
  9.   ReadLn (Foo);
  10.   while Foo < Bar do
  11.     begin
  12.       Bar := Foo;
  13.       ReadLn (Foo)
  14.     end;
  15.   WriteLn ('The last number of your series was: ', Bar)
  16. end.
  17.